home *** CD-ROM | disk | FTP | other *** search
/ Tech Win 1996 January / CD [TECH_A].bin / tech_a / vb4wm / vb4-4.cab / alarm.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-10-25  |  2.9 KB  |  100 lines
  1. VERSION 4.00
  2. Begin VB.Form AlarmForm 
  3.    BorderStyle     =   1  '
  4.    Caption         =   "
  5.    ClientHeight    =   780
  6.    ClientLeft      =   1665
  7.    ClientTop       =   2460
  8.    ClientWidth     =   3135
  9.    Height          =   1185
  10.    Icon            =   "ALARM.frx":0000
  11.    Left            =   1605
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   780
  15.    ScaleWidth      =   3135
  16.    Top             =   2115
  17.    Width           =   3255
  18. BeginProperty Font
  19. name = "
  20. size = 9
  21. bold = 0
  22. EndProperty
  23.    Begin VB.Timer Timer1 
  24.       Interval        =   500
  25.       Left            =   2640
  26.       Top             =   120
  27.    End
  28.    Begin VB.Label lblTime 
  29.       AutoSize        =   -1  'True
  30.       BeginProperty Font 
  31. name = "
  32.          charset         =   128
  33.          weight          =   400
  34.          size            =   12
  35.          underline       =   0   'False
  36.          italic          =   0   'False
  37.          strikethrough   =   0   'False
  38. Bold = 0
  39.       EndProperty
  40.       Height          =   240
  41.       Left            =   120
  42.       TabIndex        =   0
  43.       Top             =   120
  44.       Width           =   75
  45.    End
  46. Attribute VB_Name = "AlarmForm"
  47. Attribute VB_Creatable = False
  48. Attribute VB_Exposed = False
  49. Option Explicit
  50. Dim AlarmTime
  51. Const conMinimized = 1
  52. Private Sub Form_Click()
  53.     AlarmTime = InputBox("
  54. B", "
  55. ", AlarmTime)
  56.     If AlarmTime = "" Then Exit Sub
  57.     If Not IsDate(AlarmTime) Then
  58.         MsgBox "
  59.     Else                                    ' InputBox 
  60.         AlarmTime = CDate(AlarmTime)        ' 
  61.  date/time 
  62.  AlarmTime 
  63.     End If
  64. End Sub
  65. Private Sub Form_Load()
  66.     AlarmTime = ""
  67. End Sub
  68. Private Sub Form_Resize()
  69.     If WindowState = conMinimized Then      ' 
  70.         SetCaptionTime
  71.     Else
  72.         Caption = "
  73.     End If
  74. End Sub
  75. Private Sub SetCaptionTime()
  76.     Caption = Format(Time, "Medium Time")   ' 
  77.  "Medium Time" 
  78. End Sub
  79. Private Sub Timer1_Timer()
  80. Static AlarmSounded As Integer
  81.     If lblTime.Caption <> CStr(Time) Then
  82.         ' 
  83.         If Time >= AlarmTime And Not AlarmSounded Then
  84.             Beep
  85.             MsgBox "
  86.  " & Time
  87.             AlarmSounded = True
  88.         ElseIf Time < AlarmTime Then
  89.             AlarmSounded = False
  90.         End If
  91.         If WindowState = conMinimized Then
  92.             ' 
  93.             If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
  94.         Else
  95.             ' 
  96.             lblTime.Caption = Time
  97.         End If
  98.     End If
  99. End Sub
  100.